Workplace Effectiveness: Critical Thinking Skills/Workplace Effectiveness: Critical Thinking Skills.iso/pc/Files/Patterns.dxr/00007_Sound Handlers.ls

Text File | 1998-09-16 | 401 b | 27 lines

on keepLittleSounds
  set vList to ["mouseDown.aif"]
  repeat with vSound in vList
    set the purgePriority of member vSound to 1
  end repeat
end

on stopSounds
  sound stop 1
  sound stop 2
  puppetSound(0)
  updateStage()
end

on stopSound2
  if soundBusy(2) then
    sound stop 2
  end if
end

on DelaySome howLong
  startTimer()
  repeat while the timer < howLong
    nothing()
  end repeat
end